unit uUtils;

interface

uses
  Classes;
  
type
  TCommonThread = class(TThread)
  private
    FThreadMethod: TThreadMethod;
  protected
    procedure Execute; override;
  public
    property ThreadMethod: TThreadMethod read FThreadMethod write FThreadMethod;
  end;  

implementation

{ TCommonThread }

procedure TCommonThread.Execute;
begin
  if Assigned(FThreadMethod) then
    FThreadMethod();
end;

end.
